home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / misc / CCGames.lha / BANNER.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  3KB  |  104 lines
  1. 2 PRINT CHR$(26)
  2. 3 PRINT "**************"
  3. 4 PRINT "*   BANNER   *"
  4. 5 PRINT "**************"
  5. 6 PRINT:PRINT
  6. 10 INPUT "HORIZONTAL LETTER LENGTH (IN INCHES)";X
  7. 20 INPUT "VERTICAL LETTER LENGTH (IN INCHES)";Y:PRINT
  8. 21 INPUT "DO YOU WANT BANNER CENTERED (ON 15 INCH PAPER)";L$:
  9.    IF LEFT$(L$,1)="N" OR LEFT$(L$,1)="n" THEN
  10.    PRINT "DIABLO MARGIN SET (ESCAPE 9) CAN BE USED TO SET LEFT MARGIN."
  11. 22 G1=0:IF LEFT$(L$,1)="Y" OR LEFT$(L$,1)="y" THEN G1=1
  12. 29 PRINT:PRINT "MESSAGE (USE ALL CAPITAL LETTERS)";
  13. 30 INPUT A$
  14. 31 INPUT 
  15.    "PRINTING CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER BEING PRINTED)";M$
  16. 35 PRINT:LINE INPUT "ENTER 'RETURN' WHEN PAPER IS POSITIONED.";RR$
  17. 36 PRINT:PRINT:PRINT "---   Printing   ---":PRINT:PRINT
  18. 40 A=ASC(LEFT$(A$,1))
  19. 50 REM
  20. 60 REM
  21. 70 FOR T=1 TO LEN(A$)
  22. 80 P$=MID$(A$,T,1)
  23. 90 FOR O=1 TO 50
  24. 95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
  25. 96 IF P$=" " THEN 812
  26. 100 IF P$=S$ THEN 200
  27. 120 NEXT O
  28. 200 RESTORE
  29. 201 X$=M$
  30. 202 IF M$="ALL" OR M$="All" OR M$="all" THEN X$=S$
  31. 205 FOR U=1 TO 7
  32. 210 FOR K=8 TO 0 STEP -1
  33. 230 IF 2^K<S(U) THEN 270
  34. 240 J(9-K)=0
  35. 250 GOTO 280
  36. 270 J(9-K)=1: S(U)=S(U)-2^K
  37. 272 IF S(U)=1 THEN 815
  38. 280 NEXT K
  39. 445 FOR T1=1 TO X
  40. 447 LPRINT TAB((63-4.5*Y)*G1/(LEN(X$))+1);
  41. 450 FOR B=1 TO F(U)
  42. 460 IF J(B)=0 THEN 500
  43. 465 FOR I=1 TO Y: LPRINT X$;: NEXT I
  44. 470 GOTO 600
  45. 500 FOR I=1 TO Y
  46. 510 FOR I1=1 TO LEN(X$)
  47. 520 LPRINT " ";: NEXT I1
  48. 530 NEXT I
  49. 600 NEXT B
  50. 620 LPRINT
  51. 630 NEXT T1
  52. 700 NEXT U
  53. 750 FOR H=1 TO 2*X: LPRINT: NEXT H
  54. 800 NEXT T
  55. 806 LPRINT CHR$(12)
  56. 810 RUN "MENU"
  57. 812 FOR H=1 TO 7*X: LPRINT: NEXT H
  58. 813 GOTO 800
  59. 815 F(U)=9-K: GOTO 445
  60. 899 DATA " ",0,0,0,0,0,0,0
  61. 900 DATA "A",505,37,35,34,35,37,505
  62. 901 DATA "G",125,131,258,258,290,163,101
  63. 902 DATA "E",512,274,274,274,274,258,258
  64. 903 DATA "T",2,2,2,512,2,2,2
  65. 904 DATA "W",256,257,129,65,129,257,256
  66. 905 DATA "L",512,257,257,257,257,257,257
  67. 906 DATA "S",69,139,274,274,274,163,69
  68. 907 DATA "O",125,131,258,258,258,131,125
  69. 908 DATA "N",512,7,9,17,33,193,512
  70. 909 DATA "F",512,18,18,18,18,2,2
  71. 910 DATA "K",512,17,17,41,69,131,258
  72. 911 DATA "B",512,274,274,274,274,274,239
  73. 912 DATA "D",512,258,258,258,258,131,125
  74. 913 DATA "H",512,17,17,17,17,17,512
  75. 914 DATA "M",512,7,13,25,13,7,512
  76. 915 DATA "?",5,3,2,354,18,11,5
  77. 916 DATA "U",128,129,257,257,257,129,128
  78. 917 DATA "R",512,18,18,50,82,146,271
  79. 918 DATA "P",512,18,18,18,18,18,15
  80. 919 DATA "Q",125,131,258,258,322,131,381
  81. 920 DATA "Y",8,9,17,481,17,9,8
  82. 921 DATA "V",64,65,129,257,129,65,64
  83. 922 DATA "X",388,69,41,17,41,69,388
  84. 923 DATA "Z",386,322,290,274,266,262,260
  85. 924 DATA "I",258,258,258,512,258,258,258
  86. 925 DATA "C",125,131,258,258,258,131,69
  87. 926 DATA "J",65,129,257,257,257,129,128
  88. 927 DATA "1",0,0,261,259,512,257,257
  89. 928 DATA "2",261,387,322,290,274,267,261
  90. 929 DATA "*",69,41,17,512,17,41,69
  91. 930 DATA "3",66,130,258,274,266,150,100
  92. 931 DATA "4",33,49,41,37,35,512,33
  93. 932 DATA "5",160,274,274,274,274,274,226
  94. 933 DATA "6",194,291,293,297,305,289,193
  95. 934 DATA "7",258,130,66,34,18,10,8
  96. 935 DATA "8",69,171,274,274,274,171,69
  97. 936 DATA "9",263,138,74,42,26,10,7
  98. 937 DATA "=",41,41,41,41,41,41,41
  99. 938 DATA "!",1,1,1,384,1,1,1
  100. 939 DATA "0",57,69,131,258,131,69,57
  101. 940 DATA ".",1,1,129,449,129,1,1
  102. 1000 STOP
  103. 1002 RUN "MENU"
  104.